Public Class ProfileManager

    Private _provider As IProfileProvider
    Public Sub New(ByVal provider As IProfileProvider)
        Me._provider = provider
    End Sub

    Public Function GetAllProfiles() As ICollection(Of Profile)
        Return Me._provider.GetAllProfiles()
    End Function

    Public Function GetProfileByName(ByVal name As String) As Profile
        Return Me._provider.GetProfileByName(name)
    End Function

    Public Sub SaveProfile(ByVal profile As Profile)
        Me._provider.SaveProfile(profile)
    End Sub

    Public Sub DeleteProfile(ByVal profile As Profile)
        Me._provider.DeleteProfile(profile)
    End Sub
End Class
